home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / F-French / (c)f1.d64 / changer titre.d (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  762b  |  21 lines
  1. 1 OPEN15,8,15:GOSUB19
  2. 2 PRINT#15,"I0":GOSUB19
  3. 3 OPEN2,8,2,"#":GOSUB19
  4. 4 DIMA$(15):PRINT#15,"U1:2,0";18;0:GOSUB19
  5. 5 PRINT#15,"B-P:2,144":GOSUB19
  6. 6 FORI=0TO15:GET#2,A$(I):GOSUB19:NEXT
  7. 7 PRINT"[147]ANCIEN TITRE:":FORI=0TO15:PRINT"";A$(I);"[146]";:NEXT
  8. 8 PRINT:PRINT"DESIREZ-VOUS LE CHANGER (O/N)? ";
  9. 9 GETA$:IFA$<>"O"ANDA$<>"N"THEN9
  10. 10 PRINTA$:IFA$="N"THEN18
  11. 11 INPUT"NOUVEAU TITRE ";A$
  12. 12 IFLEN(A$)>16THENA$=LEFT$(A$,16)
  13. 13 IFLEN(A$)<16THENA$=A$+" ":GOTO13
  14. 14 PRINT#15,"B-P:2,144":GOSUB19
  15. 15 FORI=1TO16:PRINT#2,MID$(A$,I,1);:GOSUB19:NEXT
  16. 16 PRINT#15,"U2:2,0,18,0":GOSUB19
  17. 17 PRINT#15,"I0":GOSUB19
  18. 18 FORI=1TO15:CLOSEI:NEXT:END
  19. 19 INPUT#15,EN,EM$,ET,ES:IFEN=0THENRETURN
  20. 20 PRINT:PRINTEN;EM$;ET;ES:GOTO18
  21.